perm filename DIFC[M11,LCS] blob
sn#374004 filedate 1978-08-02 generic text, type T, neo UTF8
1) M11C.F4[M11,LCS] and 2) M11C.F4[P11,LCS] 8-02-78 12:40 pages 1,1
**** File 1) M11C.F4[M11,LCS], Page 1 line 1
1) COMMENT ā VALID 00002 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 CFORS3 FORTRAN UNIT GENERATOR ROUTINE
1) C00016 ENDMK
1) Cā;
1) CFORS3 FORTRAN UNIT GENERATOR ROUTINE
**** File 2) M11C.F4[P11,LCS], Page 1 line 1
2) CFORS3 FORTRAN UNIT GENERATOR ROUTINE
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 4
1) REAL NT,IOUT,IN1,IN2,IN3,IN4,IGN
1) DIMENSION L(10),M(10)
1) C CAN USE UP TO 10 FIELDS IN UNIT GEN.
1) COMMON I(1) /P/P(1) /GENS/IGN(1) /IRAN/IRAN /LFUNC/LFUNC
1) COMMON /INS/INS(1) /NT/NT(1) /IOUT/IOUT(1)
1) C INS=INSTRUMENT DEFINITIONS, NT=NOTE CARD INFO, IOUT=OUTPUT BLOCK
1) EQUIVALENCE(M1,M(1)),(M2,M(2)),(M3,M(3)),(M4,M(4)),(M5,M(5)),(M6,M
1) 1(6)),(M7,M(7)),(M8,M(8)),(L1,L(1)),(L2,L(2)),(L3,L(3)),(L4,L(4)),(
1) 2L5,L(5)),(L6,L(6)),(L7,L(7)),(L8,L(8))
1) XNFUN=LFUNC-1
1) C COMMON INITIALIZATION OF GENERATORS
**** File 2) M11C.F4[P11,LCS], Page 1 line 4
2) REAL NT,IOUT,IN1,IN2,IN3,IN4,IRN,IRN1,IRN2,IRN3,IGN
2) DIMENSION L(8),M(8)
2) CC DIMENSION I(15000),P(100),IP(20),L(8),M(8)
2) COMMON I(1)/P/ P(1)/PARM/IP(1) /GENS/IGN(1) /IRAN/IRAN
2) CC COMMONI,P/PARM/IP
2) COMMON /INS/INS(1),IDEF(1) /NT/NT(1) /IOUT/IOUT(1)
2) C INS=INSTRUMENT DEFINITIONS, IDEF=LOCATION TABLE, IOUT=OUTPUT BLOCK
2) EQUIVALENCE(M1,M(1)),(M2,M(2)),(M3,M(3)),(M4,M(4)),(M5,M(5)),(M6,M
2) 1(6)),(M7,M(7)),(M8,M(8)),(L1,L(1)),(L2,L(2)),(L3,L(3)),(L4,L(4)),(
2) 2L5,L(5)),(L6,L(6)),(L7,L(7)),(L8,L(8)),(RN1,IRN1),(RN3,IRN3),(RN,I
2) 3RN)
2) C SFXX=IP(15)
2) C SFID=IP(12)
2) C SFI=1./SFID
2) C SFF=1./SFXX
2) C SFXX=SFID/SFXX
2) XNFUN=IP(6)-1
2) C COMMON INITIALIZATION OF GENERATORS
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 17
1) M11C.F4[M11,LCS] and 2) M11C.F4[P11,LCS] 8-02-78 12:40 pages 2,1
1) DO 204 J1=N1,N2
**** File 2) M11C.F4[P11,LCS], Page 1 line 24
2) CQQ N2=I(N1-1)-1
2) DO 204 J1=N1,N2
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 20
1) 200 L(J2)=-INS(J1)
**** File 2) M11C.F4[P11,LCS], Page 1 line 28
2) CCC IF(I(J1))200,201,201
2) 200 L(J2)=-INS(J1)
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 25
1) C***** WHAT DOES THE BIG NUMBER DO?????
**** File 2) M11C.F4[P11,LCS], Page 1 line 34
2) C IF(I(J1)-26262)202,202,203
2) CCC IF(I(J1)-262144)202,202,203
2) C***** WHAT DOES THE BIG NUMBER DO?????
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 30
1) C****** WHAT DOES THIS BIG NUM. DO?? ***********
**** File 2) M11C.F4[P11,LCS], Page 1 line 41
2) CCC203 L(J2)=I(J1)-262144
2) C****** WHAT DOES THIS BIG NUM. DO?? ***********
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 37
1) IF(NGEN.EQ.14)CALL OPT(L,M,NSAM)
1) C FOLLOWING IS SUGGESTED HEADER FOR SUBROUTINE OPT
1) C SUBROUTINE OPT(L,M,NSAM)
1) C DIMENSION L(8),M(8)
1) C COMMON /GENS/IGN(1)/IRAN/IRAN/LFUNC/LFUNC/NT/NT(1)/IOUT/IOUT(1)
1) 112 RETURN
**** File 2) M11C.F4[P11,LCS], Page 1 line 49
2) 112 RETURN
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 68
1) C IGN(J4) IS IN FUNC STORAGE AREA.
1) IF(M2.GT.0)GO TO 286
**** File 2) M11C.F4[P11,LCS], Page 1 line 75
1) M11C.F4[M11,LCS] and 2) M11C.F4[P11,LCS] 8-02-78 12:40 pages 2,1
2) CCC F=FLOAT(I(J4))
2) C I(J4) IS IN FUNC STORAGE AREA.
2) IF(M2.GT.0)GO TO 286
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 74
1) 290 IF(SUM.GE.XNFUN)GO TO 287
1) IF(SUM.LT.0.0)GO TO 289
**** File 2) M11C.F4[P11,LCS], Page 1 line 82
2) CCCC SUM=SUM+FLOAT(NT(J4))*SFI
2) CC 290 IF(SUM-XNFUN)288,287,287
2) 290 IF(SUM.GE.XNFUN)GO TO 287
2) CC 287 SUM=SUM-XNFUN
2) IF(SUM.LT.0.0)GO TO 289
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 109
1) 313 RN1=NT(L5)
1) RN3=NT(L6)
1) DO 340 J3=0,NSAMX
**** File 2) M11C.F4[P11,LCS], Page 1 line 120
2) 313 IRN1=NT(L5)
2) IRN3=NT(L6)
2) DO 340 J3=0,NSAMX
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 127
1) NT(L5)=RN1
1) NT(L6)=RN3
1) RETURN
**** File 2) M11C.F4[P11,LCS], Page 1 line 138
2) NT(L5)=IRN1
2) NT(L6)=IRN3
2) RETURN
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 134
1) XIN4=NT(L4)
**** File 2) M11C.F4[P11,LCS], Page 1 line 145
2) CC X1=I(4)
2) CC X1=SFI*512./X1
2) XIN4=NT(L4)
***************
1) M11C.F4[M11,LCS] and 2) M11C.F4[P11,LCS] 8-02-78 12:40 pages 2,1
**** File 1) M11C.F4[M11,LCS], Page 2 line 256
1) IIN1=NT(JN1)
1) IF(IIN1)960,960,955
1) 955 INS(ILOC)=-(IIN1-1)*LFUNC-1
1) 960 RETURN
**** File 2) M11C.F4[P11,LCS], Page 1 line 269
2) CC IF(I(N1+1).EQ.105) ILOC=N1+4
2) CC IN1=I(3)+I(N1)-1
2) CC IIN1=I(IN1)/IP(12)
2) IIN1=NT(JN1)
2) CC IIN1=NT(JN1)/IP(12)
2) IF(IIN1)960,960,955
2) 955 INS(ILOC)=-(IIN1-1)*IP(6)-1
2) CC 955 I(ILOC)=-IP(2)-(IIN1-1)*IP(6)
2) 960 RETURN
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 266
1) 913 RN=NT(L5)
1) DO 940 J3=0,NSAMX
**** File 2) M11C.F4[P11,LCS], Page 1 line 284
2) 913 IRN=NT(L5)
2) DO 940 J3=0,NSAMX
***************
**** File 1) M11C.F4[M11,LCS], Page 2 line 278
1) NT(L5)=RN
1) RETURN
1) END
1) SUBROUTINE OPT(L,M,NSAM)
1) DIMENSION L(1),M(1)
1) COMMON /GENS/IGN(1)/IRAN/IRAN/LFUNC/LFUNC/NT/NT(1)/IOUT/IOUT(1)
1) C THIS IS A DUMMY ROUTINE OPT Pm Pn Bn; doubles value of Bn
1) DO 1 K=0,NSAM-1
1) 1 IOUT(L(3))=IOUT(L(3))*2
1) RETURN
1) END
**** File 2) M11C.F4[P11,LCS], Page 1 line 296
2) NT(L5)=IRN
2) RETURN
2) END
***************